﻿Public Class DLReport
    Inherits DLBase

#Region "Declare"

#End Region

#Region "Constructor"

    Public Sub New(ByVal databaseConnectionName As String)
        MyBase.New(databaseConnectionName)
        strSubSystemCode = "RP"
    End Sub

#End Region

#Region "Event"

#End Region

#Region "Overridable"

    Public Function GerReportByParamater(ByVal tablename As String, ByVal storeProcedureName As String, _
                                         ByVal param() As Object) As DataSet
        Dim ds As New DataSet
        db.LoadDataSet(storeProcedureName, ds, New String() {tablename}, param)
        Return ds
    End Function

    Public Function GetAccountingObjectPayable(ByVal param() As Object) As DataSet
        Dim ds As New DataSet
        db.LoadDataSet("Proc_GetAccountingObjectPayable", ds, New String() {"Summary"}, param)
        Return ds
    End Function

    Public Function GetTurnoverByItemCategory(ByVal param() As Object) As DataSet
        Dim ds As New DataSet
        db.LoadDataSet("Proc_GetTurnoverByItemCategory", ds, New String() {"Summary"}, param)
        Return ds
    End Function

    Public Function GetSummaryData(ByVal param() As Object) As DataSet
        Dim ds As New DataSet
        db.LoadDataSet("Proc_GetAmountSummary", ds, New String() {"Summary"}, param)
        Return ds
    End Function


    Public Function GetSummaryInventory(ByVal param() As Object) As DataSet
        Dim ds As New DataSet
        db.LoadDataSet("Proc_GetClosingInventory", ds, New String() {"Summary"}, param)
        Return ds
    End Function


#End Region

#Region "Sub/Function"

#End Region
End Class
